home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / ipdldemo.exe / lha / PROTVARS.XFU < prev    next >
Text File  |  1991-02-27  |  282b  |  3 lines
  1. %%HP: T(3)A(D)F(.);
  2. \<< IFERR OBJ\-> DUP SIZE PATH \-> vp s cp \<< 1 s FOR i vp i GET IF { HOME UPDIR } OVER POS 15 TVARS 3 PICK POS s i \=/ AND OR THEN EVAL ELSE IF VARS OVER POS NOT THEN DROP 9E499 'i' STO ELSE cp EVAL DROP 0 DOERR END END NEXT cp EVAL \>> THEN CLOSEIO END \>>
  3.